home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1 Issue 2 / PDCD-1 - Issue 02.iso / _utilities / utilities / 003 / _armbob / !ArmBob_progs_Apply < prev    next >
Encoding:
Text File  |  1994-06-22  |  183 b   |  17 lines
  1. /* functions and vectors are first class citizens */
  2. apply(v)
  3. {
  4.  return (v[0](v[1]));
  5. }
  6.  
  7. f(x)
  8. { return 100*x; }
  9.  
  10. main()
  11. {
  12.  x = newvector(2);
  13.  x[0] = f;
  14.  x[1] = 7;
  15.  print(apply(x));
  16. }
  17.